home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / makprnt.tes < prev    next >
Text File  |  1991-07-11  |  642b  |  17 lines
  1. This TECO macro makes a TECO command string printable by converting
  2. escape characters to dollar signs and all control characters to the
  3. tilde-character string which is usually printed on the terminal, except
  4. for ^I (tab), ^M (cr), ^L (ff), and ^J (lf).
  5. 
  6. <
  7. z-."e1;'        ! if at end of buffer,  exit the loop !
  8. 0a-31"gcf<'     ! it it's already printable,  skip it !
  9. 0a-27"ei$df<'  ! if it's ESCAPE,  make it into a dollar-sign !
  10. 0a-13"ecf<'     ! if it's carriage return,  skip it !
  11. 0a-10"ecf<'     ! if it's line feed,  skip it !
  12. 0a-9"ecf<'      ! if it's TAB, skip it !
  13. 0a-12"ecf<'     ! if it's form feed,  skip it !
  14. i^a+64id
  15. >
  17.